home *** CD-ROM | disk | FTP | other *** search
- KISS for VADCG and ASHBY TNC's, by Mike Bruski, AJ9X
- This document created by Bdale Garbee, N3EUA 870225
-
- The file KISS_VDG.ASM directly supports stock VADCG TNC's, and ASHBY
- TNC's with 2716 ROMs. The HEX file for this version is supplied as
- KISS_VDG.HEX. With minor changes, this source can also support ASHBY
- boards with 2732 ROMs, and VADCG/VDS-1 boards with 8k RAM.
-
- For the ASHBY boards with 2732 ROMs, apply the following changes to the
- file KISS_VDG.ASM, and reassemble. The HEX for this version is supplied
- as KISS_ASH.HEX:
-
- 2c2
- < ; ** KISS Protocol Program for stock VADCG/ASHBY-2716 KISS V1.03 **
- ---
- > ; ** KISS Protocol Program for ASHBY-2732 TNC KISS V1.03 **
- 264,265c264,265
- < ; 1000H 1FFFH *ASHBY with 2716 ROMs or Standard VADCG
- < ; 2000H 2FFFH ASHBY with 2732 ROMs
- ---
- > ; 1000H 1FFFH ASHBY with 2716 ROMs or Standard VADCG
- > ; 2000H 2FFFH *ASHBY with 2732 ROMs
- 272,273c272,273
- < LORAM EQU 1000H ; BEGINNING OF SRAM
- < HIRAM EQU 1FFFH ; END OF SRAM
- ---
- > LORAM EQU 2000H ; BEGINNING OF SRAM
- > HIRAM EQU 2FFFH ; END OF SRAM
- 1791c1791
- < DB 'VADCG/ASHBY-2716 Terminal Node Controller'
- ---
- > DB 'ASHBY-2732 Terminal Node Controller'
-
-
- For VADCG/VDS-1 boards with 8k of RAM, apply the following changes to the
- file KISS_VDG.ASM, and reassemble. The HEX for this version is supplied
- as KISS_VDS.ASM:
-
- 0a1
- > ; FILE: KISS-VDS.ASM
- 2c3
- < ; ** KISS Protocol Program for stock VADCG/ASHBY-2716 KISS V1.03 **
- ---
- > ; ** KISS Protocol Program for VADCG/VDS-1 TNC KISS V1.03 **
- 264c265
- < ; 1000H 1FFFH *ASHBY with 2716 ROMs or Standard VADCG
- ---
- > ; 1000H 1FFFH ASHBY with 2716 ROMs or Standard VADCG
- 268c269
- < ; 8000H 9FFFH VADCG with VDS-1 (8K RAM)
- ---
- > ; 8000H 9FFFH *VADCG with VDS-1 (8K RAM)
- 272,273c273,274
- < LORAM EQU 1000H ; BEGINNING OF SRAM
- < HIRAM EQU 1FFFH ; END OF SRAM
- ---
- > LORAM EQU 8000H ; BEGINNING OF SRAM
- > HIRAM EQU 9FFFH ; END OF SRAM
- 572,578c573,579
- < ;*; MVI A,C0+RLB+MD3+BIN ; 8253 MODE CONTROL WORD
- < ;*; OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
- < ;*; LXI H,SBR1200 ; CONSTANT FOR 1200 BAUD
- < ;*; MOV A,L ; A <-- LSB
- < ;*; OUT PIT0 ; WRITE
- < ;*; MOV A,H ; A <-- MSB
- < ;*; OUT PIT0 ; WRITE
- ---
- > MVI A,C0+RLB+MD3+BIN ; 8253 MODE CONTROL WORD
- > OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
- > LXI H,SBR1200 ; CONSTANT FOR 1200 BAUD
- > MOV A,L ; A <-- LSB
- > OUT PIT0 ; WRITE
- > MOV A,H ; A <-- MSB
- > OUT PIT0 ; WRITE
- 581,587c582,588
- < ;*; MVI A,C2+RLB+MD3+BIN ; MODE CONTROL WORD
- < ;*; OUT ITCP ; WRITE
- < ;*; LXI H,SEED ; COUNTER VALUE
- < ;*; MOV A,L ; A <-- LSB
- < ;*; OUT PIT2 ; WRITE
- < ;*; MOV A,H ; A <-- MSB
- < ;*; OUT PIT2 ; WRITE
- ---
- > MVI A,C2+RLB+MD3+BIN ; MODE CONTROL WORD
- > OUT ITCP ; WRITE
- > LXI H,SEED ; COUNTER VALUE
- > MOV A,L ; A <-- LSB
- > OUT PIT2 ; WRITE
- > MOV A,H ; A <-- MSB
- > OUT PIT2 ; WRITE
- 644,650c645,651
- < ;*; MVI A,C2+RLL ; READ CONTROL WORD
- < ;*; OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
- < ;*; IN PIT2 ; READ LSB OF TIMER (OUR RANDOM #)
- < ;*; MOV B,A ; COPY TO B FOR NOW
- < ;*; LDA PVAL ; A <-- PERSISTENCE VALUE
- < ;*; SUB B
- < ;*; JNC A5$S0A ; IF (RANDOM < PVAL) GOTO A5$S0A
- ---
- > MVI A,C2+RLL ; READ CONTROL WORD
- > OUT ITCP ; WRITE INTERVAL TIMER CONTROL PORT
- > IN PIT2 ; READ LSB OF TIMER (OUR RANDOM #)
- > MOV B,A ; COPY TO B FOR NOW
- > LDA PVAL ; A <-- PERSISTENCE VALUE
- > SUB B
- > JNC A5$S0A ; IF (RANDOM < PVAL) GOTO A5$S0A
- 1791c1792
- < DB 'VADCG/ASHBY-2716 Terminal Node Controller'
- ---
- > DB 'VADCG/VDS-1 Terminal Node Controller'
-